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PROGRAM 
Double Precision ASCII Decimal to Binary 

TAPES 
ASCII Source; 090-000035 

ABSTRACT 

This routine converts an ASCII character string of decimal 
digits to a double precision, two's complement number. 
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1. REQUIREftiEKTS. 

1 . 1 ~-:Z}?2ZL 

IK or larger alterable memory, 

1.2 EouiHroent. 

NOVA central processor. 

1.3 External S ubroutines 



A user supplied "get a character" routine (see 
2.2) and possibly a user supplied "accept a 
character" routine (see 2.1). 



1.4 Other 

None. 
0. OPE RAT ING P ROCEDURE 
2 . 1 Calling £ e c ue nee 



Two entry points are provided. The first is a normal 
entry, while the second is for the user who needs an 
indication that a number is requested. The normal 
entry is called by 



JSR .DDB 

return 



If an indication is needed, entry is made by 



JSR .DDB I 
return 



If this second entry is used, the user must provide 
the address of a routine in location 41 of page zero 
that will accept the indication. Indication will be 
an ASCII "D" (for double precision integer) followed 
by a null character. These two characters are passed 
separately, right adjusted in AC0 (bit 8 = 0) , "using 
two successive calls to the user. The user need 
not save any registers (except AC3 if used) or Carry. 
Return should be made by JMP 0,3. 
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2 . 2 In^-Jt Form-r.t 

Input characters will be requested by calling 

a user "get a character" routine. The address 

of this routine roust be stored in location 40 

of page zero. This user routine must be provided. 

This routine should return an ASCII character right 

adjusted in AC0 with bit 8 = for each call. 

Input should be of the forms 

SDD. . .DD(break) 

where "S" represents the sign ("-" required, 
"+" optional), "D" represents an ASCII decimal 
digit, and "break" is any ASCII character other 
than a digit. 

2. 3 Output Format 

Upon exit, hC0 will contain the break character. 
AC1 and AC2 will contain the double precision, 
two's complement binary equivalent of the input. 
AC1 contains high order, AC 2 low order. 

2 .4 Error Returns 
None. 

2.5 State of Active Registers upon Exit 

All accumulators and Carry are destroyed. 

2.6 Cautions to User 

An indefinite stream of decimal digits will be 

accepted as input. However, the result will be 

N mod 2**31 

where N represents the input number. For example, 
2,147,483,655 (2**31 + 7) converts to 7. 
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3 . Dizcvrziq^ 

3. 1 Algorithms 

The sign is processed (if given) and a flag set 

for later use in determining whether to negate 

the magnitude of the result, A character is requested 

and checked for a decimal digit. If not, the routine 

terminates with the character in KC0 as the break. 

Otherwise, the ASCII digit is reduced to the binary 

range 

and is added to a running Horner's sum 
(initially zero). If Sj_ is the former sum, 
this procedure is 

s i+l -«— S ± * 10 + D 

where S^ + j_ becomes the new sum. For example if 

six digits, D(5) to D{0) , are returned before 
the break, the result is 

((((D(5)*10f+D(4) )*I0+D{3))*10+D(2))*10+D{1))*10+D(0) . 

3 • 2 Limit ations a nd Accuracy 

The result is 

N mod 2**31 

where N represents the decimal input. 
3. 3 Si ze and Timing 

The routine is 77 (octal) words in length. 

Execution time is approximately 

124.7 + I * 125.5 /l seconds 

where I is the number of decimal digits in the 
input. For example, -147,936 requires 

124.7 + 6 * 125.5 = .877 milliseconds. 
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3.4 References 

Write-up 093-000025 describes single precision 
dec in* 1 to binary. 

3. 5 Flow Diagrams 
None. 

The ASCII source of double precision decimal to 
binary is provided with the NOVA software. If a 
user requires this program, the tape should be 
edited into the user source. 

5 - PROGRAM LISTIKG 

A listing of .DDB follows. No origin is given in 
the source, enabling the user to edit the tape any- 
where within his routine. 



CON VI 



IN PI 



OUTPUTS 



l, ALL 5 



f-i 



rtiiDra I 



iNE VHOSE 

LOCATION 



KFAK 1 
THAN 



5T BF RETURNED 

3 ■ , • ",• • ; . ^ '-!' T ' - 0. 

FOR POSITIVE NUMBERS 
L\» FOR LLEGAT1VE LUMBERS 

■'• : • : \ - - d is a 

RACIER IS AiMr CHARACTER 

-■-■v^l ":«r,T 



AC0 CONTAINS THE BREAK CHARACTER 
ACL> ^-CC CONTAIN THE BINARY RESULTS 
UE IKK CONVERSION 



AL L 1 M S E U E N C E f 

JSR . rv T r -^ 
HE TURN 

1 F AM I U T) 1 C - T 1 >i I ^ > " r : S : - S T TO 
ARC REQUESTED* CALLING SEOUEUOf 

JSR .EDS; 

RETURN 
AM ASCI 1 **D ,r FOLLOWED RY A NULL 
WILL SE TRANSMITTED VIA AGO TO 



AL CHARACTERS 



.UKU 
PI IT 



CHARACTER ROUT IN 



- - -* 



N 



E WHOSE ADDRESS MUS' 

1 (Jr rHbL Vj 



CAUTION I 



r : . -•■ 



THE ABSOLUTE VALUE OF THE RESULT 

is inj .*'C"j e -*o:* 

ALL ACS AMD CARRY 



00000 05*066 . DDHI 

0000! 0200 7 2 

00002 006041 

00003 102400 

00004 00604 1 

00005 00000? 

00006 054066 .DOB; 
0000? 102400 

00010 04006? 

00011 0400 70 

00012 04007 1 



STA 3#.FC03 
LDA 0,.FC20 
USE *- •, "C<4! 

SUB 0*0 
JSR S.FC41 



qtfi *V 



C03 



0#0 

STA 0* .FC1 1 
STA 0,.FC! 1* 1 



c 



! SAVE RETURN 
J SEND M D M 



1 SEND NULL 



! SAVE RETURN 

I CLEAR SIGN WORD 

I CLEAR RESULT WORDS 



ft? 



00013 §§€§4# 
<**!£■?- 4 02^73 
397 IS I0ft*£5 

7^7 t^ §§§§23 

707 7v» \&*- £■•!■*! 

8®0i24 
010067 
006040 

'-'■£/-,'' 7 

030 £5 73-777 4 

08026 142#33 
00027 1«6§32 
00030 §08054 



§0§21 
§0§22 
ii§23 



00031 
i§§32 
§#§33 
§0§34 
iii35 
§8036 
00037 

wmm 

00041 
§0042 
00§43 
00§44 
9.3045 
0i§46 
00047 
0g05i 
ii§5i 
§§852 



i224§0 
§2407§ 
03007 1 

isi: gci 

*25??0 

I 5 I 1 :-j 
1S5S504 

034071 
1 73822 
125400 
034070 
167^0 

125170 
1 I 3?e2 

12S400 
§44§78 
§S0§71 



0§8"53 00i823 



• FC98 



LDA U«FC21 
J7'7 7» ?# 7- : ~* 

j- v :- > *r r 77*; 

1 .77 * ? 7 : -r 
ill-: 7* -7^ 
"• ha ; ,, , - ;; r ! 3 
L 7- A 7* --C24 
/DC i* 2,7-777 
£D"£* 7.*US5C 
JMP_ .PC9? 

SUB 1*0 
LDA li-fCii 
LA A 2.**FC! *+l 
M0V2L 2#2 
MOVL 1*1 
MOVZL . 2^ 2 
MOVL 1 * 1 

,,:a 3».fcu*i 

:- * i 

3* 1 
MOV2L 2*2. 
MOVL lil 
ADD2 0#2#S2C 
INC !?I 
8XA l«*FCtl 
£f A 2* *FCI 1+1 

JMP .FC99 



ADDi 

INC 
LOA 

ADD 



80054 


024i7i 


.FC97S 


LDA l,.FC!l 


8§§55 


§3§0?i 




LDA 2**FC? 3+1 


08056 


* 2:.'- * £0 




:• ^« ! €L :» 1 


§0857 


125220 




^V.'iS * r 1 


80060 


0: -^ae?' 




DS7 «F\"!2 


0§06t 


§02866 




JHP 7*^C73 


00062 


l«5§4§4 




MEG 2#2#S2R 


0§S63 


1:7 /> £-7* 




CON- * .* *. .' 7-* P 


§§'§64 


124400 




WEC5 I* 1 


§8065 


§§2066 




j. mp •:. -fc^c 



I 677 A CHIRAC"! i* 7 

I TEST fOR" ,, * M 

I YES 

I TEST FT- '* *'- ** 

J WE 1 THER 

I Si" 7 r 7\ ~L^:7 77 1 FDR -'1-V7S 

I --7" A 7:-\T 

I TEST 7 ; 7£ t "" T '* 

I -1 .;-?,; i *'"*** 

I TEST f07 A 01 Ail 

1 NOT A DIGIT - THEREFORE A 

J BREAK 

J REDUCE TO 0-9 RANGE 

I GET SUM WORDS 

I SUM* 4 



I SUM* ( 4+ 1 ) 

I 2*SU v .*{4+i) 
J SUM*10+AC0 



I STORE RESULTS 
I GET'NEXT DIGIT 
I GET RESULTS 



I SET SIGN ♦ 

I TEST SIGN OF RESULT 

I POSITIVE* RFTURN 

I NEGATIVE 



I RETURN 



ft? 



00066 000000 ♦FC03f 
00867 ?;--^<r- . ".:'.: ' 

P f?f 7 2? P 80104 # P 2 S t§: 



ILK 2 



I SAVE RETURN 

I SIGN OF RESULT WORD 
J RESULT WORDS 



>N 



»B 



0Si 



0807 6 Z'Z-2'Oll .~C?*? * 

i00#40 •FC40*40 
C-T0®/:' > T T^i = /i 



PAGE GET CHARACTER ADDRESS 
PAGE PUT CHARACTER ADDRESS 



